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1 TITLE minsely possitive difference functions 
¢ -IDENT /1-002/ ; File: MTHDIM.MAR 
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4 5 FRAAAAA RARE KE AAT AE REAR AEAAAAAAAAAEAAAAAEAAAAEAEAAEAAAAAAAAAAKE KARAT 
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B58 9; FACILITY: MATH LIBRARY 
000 0 ;+ 
0000 13 ABSTRACT: 
000 § 3 This module contains the positive difference routines. 
44 ? : Positive difference (a,b) is defined to be MAX(a-b,0) 
9000 5: 
00 § i-- 
0000 3 
00: 8 ; VERSION: 1 
00 9; | 
00 40 ; HISTORY: 
000 41; 
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00 rt ; 
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000 46 3 
44 47; 
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INCLUDE FILES: 
NONE 
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PIC, SHR, LONG, EXE, NOWRT 


_MTHSCODE 


; PSECT DECLARATIONS: 
»PSECT 


80 ; 


; EQUATED SYMBOLS: 
NONE 


; OWN STORAGE: 
NONE 
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p++ 
; FUNCTIONAL DESCRIPTION: 

Returns, as routine value, the positive difference of two 
INTEGER*2 arguments. 


CALLING SEQUENCE: 
Positive_difference.ww.v = MTHSIIDIM (al.rw.r, a2.rw.r) 
INPUT PARAMETERS: 
al adr of INTEGER*2 value 
a2 adr of INTEGER*2 value 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
SIGNALS Integer Overflow if al-a2 overflows. 


“M<IV> ; enable integer overflow 


ENTRY MTHSIIDIM 

SUBW3 @8(AP), a4(AP), RO ; RO = difference of args 

GEQ 1$ ; return if non-negative 
18 a RO ; else return 0 
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~SBTTL MTHSJIDIM 


p++ 

; FUNCTIONAL DESCRIPTION: 

Returns, as routine value, the positive difference of two 
INTEGERS4 arguments. 


CALLING SEQUENCE: 


Positive “difference.wl. v = MTHSJIDIM (al.rl.r, a2.rl.r) 


INPUT 4 pete 
a 
a2 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE gti te 


IGNALS Integer Overflow if al-a2 overflows. 


ENTRY MTHSJIDIM 


SUBL3 reerrs 
0 


enable integer overflow 
RO = difference of args 
return if non-negative 
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+4 
FUNCTIONAL DESCRIPTION: 
Returns, as routine 
REAL*4 arguments. 


; CALLING SEQUENCE: 
; Positive_difference. 


; INPUT PARAMETERS: 
: al adr of a 
a2 adr of a 


: IMPLICIT INPUTS: 

: NONE 

: OUTPUT PARAMETERS: 
3 NONE 

: IMPLICIT OUTPUTS: 
; NONE 

: COMPLETION CODES: 
: NONE 


SIDE EFFECTS: 
Floating Overflow, F 
exceptions can occur 
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-ENTRY MTHSDIM, 
SUBF3 @8(AP), a4(A 
18 BGEG 1$ 
D4 CLRL RO 
04 1$: RET 
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value, the positive difference of two 
wf.v = MTHSDIM (al.rf.r, a2.rf.r) 


single-precision floating-point value 
single-precision floating-point value 


lLoating Underflow, and Reserved Operand 


“M<> 
P), RO ; RO = difference of args 
: return if non-negative 


: else return 0 
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FUNCTIONAL DESCRIPTION: | 
Returns as routine value, the positive difference of two 
REAL*8 numbers. 


CALLING SEQUENCE: 
Positive_difference.wd.v = MTHSDDIM (al.rd.r, a2.rd.r) 


INPUT PARAMETERS: 
al adr of a double-precision floating-point value 
a2 adr of a double-precision floating-point value 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: } 
Floating Overflow, Floating Underflow, and Reserved Operand 
exceptions can occur. 
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ENTRY MTHSODIM, aM<> 

SUBD3 a@8(AP), a4(AP), RO ; RO = difference of args 

BGEQ 1$ ; return if non-negative 
- cine RO : else return 0 
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OUTPUT PARAMETERS: 
NONE 
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yt: p++ 
8 ; FUNCTIONAL DESCRIPTION: 
0; Returns as routine value, the positive difference of two 
G floating numbers. 
; CALLING SEQUENCE: 


Positive_difference.wg.v = MTHSGDIM (al.rg.r, a2.rg.r) 


; INPUT PARAMETERS: 


al - address of a G floating value 
a2 - address of a G floating value 


; IMPLICIT INPUTS: 
NONE 


WO OONOUS Wr 


; OUTPUT PARAMETERS: 
NONE 
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IMPLICIT OUTPUTS: 
NONE 
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5 
6 
7 
8 
9 
§ 0 
1 
34 § 
034 COMPLETION CODES: 
034 4 NONE 
034 5 
034 296 ; SIDE EFFECTS: ‘ 
034 7 Floating Overflow, Floating Underflow and Reserved Operand 
034 8 exceptions can occur. 
034 9 
034 0 
034 1 sae 
034 308 
0000 0034 ENTRY MTHSGDIM, “M<> 
50 04 BC 08 BC 43FD 0036 4 SUBG3 @8(AP), a4(AP), RO ; RO = difference of args 
02 18 003D 5 BGEQ 1$ ; return if non-negative 
50 7C 003F 6 CLRQ RO 
04 0041 7 1$: RET 3; return 
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p++ 
; opto DESCRIPTION: 


eturns the positive difference of two H floating numbers. 
Because an H floating number can not be represented in 

64 bits, it is returned to the first argument; the input 
parameters being shifted to the second and third arguments, 
as per system convention. 


CALLING SEQUENCE: 
CALL MTHSHDIM (Positive_difference.wh.r, al.rh.r, a2.rh.r) 


INPUT PARAMETERS: 


al - address of aH floating value 

a2 - address of aH floating value 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

Positive_difference - H floating result by reference 
IMPLICIT OUTPUTS: 

NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Floating Overflow, Floating Underflow and Reserved Operand 
exceptions can occur. 


-ENTRY MTHSHDIM, “M<> 

SUBH3 =@12(AP), @8(AP), @4(AP) ; @4(AP) = difference of args 
GEQ 1 ; return if non-negative 

CLRH a4 (AP) 


$: RET 3; return 
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MTHSODIM 1 
MTHSDIA 1 
MTHSGDIM 1 
THSHD 1 
MTHSIIDIM 1 
MTHSJIDIM 1 

$e eer eer eee erescaccad 

: Psect synopsis ! 

fos reese es case cen 
PSECT name Allocation PSECT No. Attributes 
» OS 00000000 <( ::3 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 00000053 (¢ 83.) O01 ¢ 1.) PIC USR CON REL LCL SHR’ EXE RD NOWRT NOVEC LONG 

pret ewes mann eon anne meen oe + 
: Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization $$ 00:00:00.1) 00:00:00.66 
Command processing 11 00:00:00.47 00:00:02.85 
Pass 00:00:00.61 00:00:03.27 
Symbol table sort 80:60:00 $5 0:00:00.00 
Pass 2 70 88:80:06. 8 R8 Bs «8d 
Symbol table output 0:00:00.01 0:00:00.01 
Psect synopsis output 88:88 88"6 BF ND OOO 
Cross-reference output Ses Be 0:00:00.00 
Assembler run totals 30 00:00:01.9 00:00:09.52 


The working get Limit was 900 peges. 
3561 bytes (7 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 6 non-local and 6 local symbols. 


356 source Lines were read in Pass 1, producing 25 object records in Pass 2. 
pages of virtual memory were used to define 0 macros. 


Pree ee sem eee ee ew ewe enon + 
H Macro Library statistics : 
Macro Library name Macros defined 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHDIM/OBJ=OBJ$:MTHDIM MSRC$:MTHDIM/UPDATE=(ENHS:MTHDIM) 
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